All fsets changed to defaliases.

diff --git a/lisp/emacs-lisp/cust-print.el b/lisp/emacs-lisp/cust-print.el
index a4fe14d50e9eb97649d5f9052e24e89cc5f4094e..355b046b9560d71c29263caf4ca1e5ba447d7cbf 100644 (file)
--- a/lisp/emacs-lisp/cust-print.el
+++ b/lisp/emacs-lisp/cust-print.el
@@ -167,7 +167,7 @@ Any pair that has the same PREDICATE is first removed."
 ;; Saving and restoring internal printing routines.
 
 (defun cust-print-set-function-cell (symbol-pair)
-  (fset (car symbol-pair) 
+  (defalias (car symbol-pair) 
        (symbol-function (car (cdr symbol-pair)))))
 
 
@@ -300,8 +300,8 @@ string argument will also work.  The string is generated with
        (circle-level (or print-level -1))
        )
 
-    (fset 'cust-print-internal-printer internal-printer)
-    (fset 'cust-print-low-level-prin 
+    (defalias 'cust-print-internal-printer internal-printer)
+    (defalias 'cust-print-low-level-prin 
          (cond
           ((or custom-print-list
                custom-print-vector
@@ -311,7 +311,7 @@ string argument will also work.  The string is generated with
           (circle-table
            'cust-print-object)
           (t 'cust-print-internal-printer)))
-    (fset 'cust-print-prin (if circle-table 'cust-print-circular 'cust-print-low-level-prin))
+    (defalias 'cust-print-prin (if circle-table 'cust-print-circular 'cust-print-low-level-prin))
 
     (cust-print-prin object)
     object))

diff --git a/lisp/emacs-lisp/lselect.el b/lisp/emacs-lisp/lselect.el
index df2b8d65d86211b8d073d7cfc405bb097d8b2226..98e726bb0fc3956d1259e61e68d1faaa0bc331eb 100644 (file)
--- a/lisp/emacs-lisp/lselect.el
+++ b/lisp/emacs-lisp/lselect.el
@@ -28,8 +28,8 @@
 ;;; all upper-case; this may seem tasteless, but it makes there be a 1:1
 ;;; correspondence between these symbols and X Atoms (which are upcased.)
 
-(fset 'x-get-cutbuffer 'x-get-cut-buffer)
-(fset 'x-store-cutbuffer 'x-set-cut-buffer)
+(defalias 'x-get-cutbuffer 'x-get-cut-buffer)
+(defalias 'x-store-cutbuffer 'x-set-cut-buffer)
 
 (or (find-face 'primary-selection)
     (make-face 'primary-selection))

diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el
index 5ff77c5b01e396d366fdcdb2af516e946f96f55f..2138c13bf65c126b994f656253edc6dbfd7e6b8a 100644 (file)
--- a/lisp/emacs-lisp/lucid.el
+++ b/lisp/emacs-lisp/lucid.el
@@ -37,7 +37,7 @@
          new)
       tree)))
 
-(fset 'current-time-seconds 'current-time)
+(defalias 'current-time-seconds 'current-time)
 
 (defun keymap-parent (keymap)
   (let ((tail (cdr keymap)))
@@ -119,58 +119,58 @@ bottom of the buffer stack."
    (if (<= arg 1) (other-buffer (current-buffer))
      (nth (1+ arg) (buffer-list)))))
 
-(fset 'find-face 'internal-find-face)
-(fset 'get-face 'internal-get-face)
-(fset 'try-face-font 'internal-try-face-font)
+(defalias 'find-face 'internal-find-face)
+(defalias 'get-face 'internal-get-face)
+(defalias 'try-face-font 'internal-try-face-font)
 \f
 ;; Support the Lucid names with `screen' instead of `frame'.
 
-(fset 'current-screen-configuration 'current-frame-configuration)
-(fset 'delete-screen 'delete-frame)
-(fset 'find-file-new-screen 'find-file-other-frame)
-(fset 'find-file-read-only-new-screen 'find-file-read-only-other-frame)
-(fset 'find-tag-new-screen 'find-tag-other-frame)
-;;(fset 'focus-screen 'focus-frame)
-(fset 'iconify-screen 'iconify-frame)
-(fset 'mail-new-screen 'mail-other-frame)
-(fset 'make-screen-invisible 'make-frame-invisible)
-(fset 'make-screen-visible 'make-frame-visible)
-;; (fset 'minibuffer-screen-list 'minibuffer-frame-list)
-(fset 'modify-screen-parameters 'modify-frame-parameters)
-(fset 'next-screen 'next-frame)
-;; (fset 'next-multiscreen-window 'next-multiframe-window)
-;; (fset 'previous-multiscreen-window 'previous-multiframe-window)
-;; (fset 'redirect-screen-focus 'redirect-frame-focus)
-(fset 'redraw-screen 'redraw-frame)
-;; (fset 'screen-char-height 'frame-char-height)
-;; (fset 'screen-char-width 'frame-char-width)
-;; (fset 'screen-configuration-to-register 'frame-configuration-to-register)
-;; (fset 'screen-focus 'frame-focus)
-(fset 'screen-height 'frame-height)
-(fset 'screen-list 'frame-list)
-;; (fset 'screen-live-p 'frame-live-p)
-(fset 'screen-parameters 'frame-parameters)
-(fset 'screen-pixel-height 'frame-pixel-height)
-(fset 'screen-pixel-width 'frame-pixel-width)
-(fset 'screen-root-window 'frame-root-window)
-(fset 'screen-selected-window 'frame-selected-window)
-(fset 'lower-screen 'lower-frame)
-(fset 'raise-screen 'raise-frame)
-(fset 'screen-visible-p 'frame-visible-p)
-(fset 'screen-width 'frame-width)
-(fset 'screenp 'framep)
-(fset 'select-screen 'select-frame)
-(fset 'selected-screen 'selected-frame)
-;; (fset 'set-screen-configuration 'set-frame-configuration)
-;; (fset 'set-screen-height 'set-frame-height)
-(fset 'set-screen-position 'set-frame-position)
-(fset 'set-screen-size 'set-frame-size)
-ll (fset 'set-screen-width 'set-frame-width)
-(fset 'switch-to-buffer-new-screen 'switch-to-buffer-other-frame)
-;; (fset 'unfocus-screen 'unfocus-frame)
-(fset 'visible-screen-list 'visible-frame-list)
-(fset 'window-screen 'window-frame)
-(fset 'x-create-screen 'x-create-frame)
-(fset 'x-new-screen 'new-frame)
+(defalias 'current-screen-configuration 'current-frame-configuration)
+(defalias 'delete-screen 'delete-frame)
+(defalias 'find-file-new-screen 'find-file-other-frame)
+(defalias 'find-file-read-only-new-screen 'find-file-read-only-other-frame)
+(defalias 'find-tag-new-screen 'find-tag-other-frame)
+;;(defalias 'focus-screen 'focus-frame)
+(defalias 'iconify-screen 'iconify-frame)
+(defalias 'mail-new-screen 'mail-other-frame)
+(defalias 'make-screen-invisible 'make-frame-invisible)
+(defalias 'make-screen-visible 'make-frame-visible)
+;; (defalias 'minibuffer-screen-list 'minibuffer-frame-list)
+(defalias 'modify-screen-parameters 'modify-frame-parameters)
+(defalias 'next-screen 'next-frame)
+;; (defalias 'next-multiscreen-window 'next-multiframe-window)
+;; (defalias 'previous-multiscreen-window 'previous-multiframe-window)
+;; (defalias 'redirect-screen-focus 'redirect-frame-focus)
+(defalias 'redraw-screen 'redraw-frame)
+;; (defalias 'screen-char-height 'frame-char-height)
+;; (defalias 'screen-char-width 'frame-char-width)
+;; (defalias 'screen-configuration-to-register 'frame-configuration-to-register)
+;; (defalias 'screen-focus 'frame-focus)
+(defalias 'screen-height 'frame-height)
+(defalias 'screen-list 'frame-list)
+;; (defalias 'screen-live-p 'frame-live-p)
+(defalias 'screen-parameters 'frame-parameters)
+(defalias 'screen-pixel-height 'frame-pixel-height)
+(defalias 'screen-pixel-width 'frame-pixel-width)
+(defalias 'screen-root-window 'frame-root-window)
+(defalias 'screen-selected-window 'frame-selected-window)
+(defalias 'lower-screen 'lower-frame)
+(defalias 'raise-screen 'raise-frame)
+(defalias 'screen-visible-p 'frame-visible-p)
+(defalias 'screen-width 'frame-width)
+(defalias 'screenp 'framep)
+(defalias 'select-screen 'select-frame)
+(defalias 'selected-screen 'selected-frame)
+;; (defalias 'set-screen-configuration 'set-frame-configuration)
+;; (defalias 'set-screen-height 'set-frame-height)
+(defalias 'set-screen-position 'set-frame-position)
+(defalias 'set-screen-size 'set-frame-size)
+ll (defalias 'set-screen-width 'set-frame-width)
+(defalias 'switch-to-buffer-new-screen 'switch-to-buffer-other-frame)
+;; (defalias 'unfocus-screen 'unfocus-frame)
+(defalias 'visible-screen-list 'visible-frame-list)
+(defalias 'window-screen 'window-frame)
+(defalias 'x-create-screen 'x-create-frame)
+(defalias 'x-new-screen 'new-frame)
 
 ;;; end of lucid.el

diff --git a/lisp/find-dired.el b/lisp/find-dired.el
index 5fa664ed42409b4009b66061201e51c3805e83da..5524b2c230daf0ae4344cef723c7a5f0ba6b7b5a 100644 (file)
--- a/lisp/find-dired.el
+++ b/lisp/find-dired.el
@@ -7,8 +7,8 @@
 ;; Maintainer: Sebastian Kremer <sk@thp.uni-koeln.de>
 ;; Keywords: unix
 
-(defconst find-dired-version (substring "$Revision: 1.10 $" 11 -2)
-  "$Id: find-dired.el,v 1.10 1992/09/27 01:24:00 roland Exp eric $")
+(defconst find-dired-version (substring "$Revision: 1.11 $" 11 -2)
+  "$Id: find-dired.el,v 1.11 1993/03/17 15:24:18 eric Exp eric $")
 
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -33,7 +33,7 @@
 ;;    find-dired|Roland McGrath, Sebastian Kremer
 ;;    |roland@gnu.ai.mit.edu, sk@thp.uni-koeln.de
 ;;    |Run a `find' command and dired the output
-;;    |$Date: 1992/09/27 01:24:00 $|$Revision: 1.10 $|
+;;    |$Date: 1993/03/17 15:24:18 $|$Revision: 1.11 $|
 
 ;; INSTALLATION ======================================================
 
@@ -148,7 +148,7 @@ The command run (after changing into DIR) is
 ;; Date: 10 May 91 17:50:00 GMT
 ;; Organization: University of Waterloo
 
-(fset 'lookfor-dired 'find-grep-dired)
+(defalias 'lookfor-dired 'find-grep-dired)
 ;;;###autoload
 (defun find-grep-dired (dir args)
   "Find files in DIR containing a regexp ARG and start Dired on output.

diff --git a/lisp/frame.el b/lisp/frame.el
index 2607d360ab0bf634dcec0e5ef61fecc4198ecde1..488fd682cc0ed785d14e234efa53e26bf8a09d79 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -237,7 +237,7 @@ These supercede the values given in `default-frame-alist'.")
                                  t)))
 
 ;; Alias, kept temporarily.
-(fset 'new-frame 'make-frame)
+(defalias 'new-frame 'make-frame)
 (defun make-frame (&optional parameters)
   "Create a new frame, displaying the current buffer.
 
@@ -426,8 +426,8 @@ Horizontal scroll bars aren't implemented yet."
 
 \f
 ;;;; Aliases for backward compatibility with Emacs 18.
-(fset 'screen-height 'frame-height)
-(fset 'screen-width 'frame-width)
+(defalias 'screen-height 'frame-height)
+(defalias 'screen-width 'frame-width)
 
 (defun set-screen-width (cols &optional pretend)
   "Obsolete function to change the size of the screen to COLS columns.\n\
@@ -454,7 +454,7 @@ should use `set-frame-width' instead."
 ;;;; Key bindings
 (defvar ctl-x-5-map (make-sparse-keymap)
   "Keymap for frame commands.")
-(fset 'ctl-x-5-prefix ctl-x-5-map)
+(defalias 'ctl-x-5-prefix ctl-x-5-map)
 (define-key ctl-x-map "5" 'ctl-x-5-prefix)
 
 (define-key ctl-x-5-map "2" 'new-frame)

diff --git a/lisp/gnuspost.el b/lisp/gnuspost.el
index bb436b5501d720879f7520df3428d1b738374481..b252f27dcf92c37cdd428037b0dd0aca82d1bb82 100644 (file)
--- a/lisp/gnuspost.el
+++ b/lisp/gnuspost.el
@@ -115,9 +115,9 @@ If prefix argument YANK is non-nil, original article is yanked automatically."
 ;;; Post a News using NNTP
 
 ;;;###autoload
-(fset 'sendnews 'gnus-post-news)
+(defalias 'sendnews 'gnus-post-news)
 ;;;###autoload
-(fset 'postnews 'gnus-post-news)
+(defalias 'postnews 'gnus-post-news)
 ;;;###autoload
 (defun gnus-post-news ()
   "Begin editing a new USENET news article to be posted.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 4b2a4c4a4cb19767b34b047e99c92e9dfa4f6cbe..12be107e4b445d83a3b37b5ca041c0ef6fb46902 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -40,10 +40,10 @@
 ;; For Emacs V18 compatibility
 (and (not (fboundp 'user-original-login-name))
      (fboundp 'user-real-login-name)
-     (fset 'user-original-login-name 'user-real-login-name))
+     (defalias 'user-original-login-name 'user-real-login-name))
 (and (not (fboundp 'buffer-disable-undo))
      (fboundp 'buffer-flush-undo)
-     (fset 'buffer-disable-undo 'buffer-flush-undo))
+     (defalias 'buffer-disable-undo 'buffer-flush-undo))
 
 ; These variables now declared in paths.el.
 ;(defvar rmail-spool-directory "/usr/spool/mail/"

diff --git a/lisp/mim-mode.el b/lisp/mim-mode.el
index b5970de19ea7d47fe0748621232d5ba956e1dddc..1fb62e2f24d579336a8cdb1c63fe06ae5d48e776 100644 (file)
--- a/lisp/mim-mode.el
+++ b/lisp/mim-mode.el
@@ -148,7 +148,7 @@ moving down a level of structure.")
 non-whitespace character in column 0 to be a toplevel object, otherwise
 only open paren syntax characters will be considered.")
 
-(fset 'mdl-mode 'mim-mode)
+(defalias 'mdl-mode 'mim-mode)
 
 (defun mim-mode ()
   "Major mode for editing Mim (MDL in MDL) code.

diff --git a/lisp/play/life.el b/lisp/play/life.el
index 8e1732ed303d021731774c76218012c885e00750..84dca781fa0b6ddfb145e6f7eaf741682036931c 100644 (file)
--- a/lisp/play/life.el
+++ b/lisp/play/life.el
@@ -117,7 +117,7 @@ generations (this defaults to 1)."
        (life-increment-generation)
        (life-display-generation sleeptime)))))
 
-(fset 'life-mode 'life)
+(defalias 'life-mode 'life)
 (put 'life-mode 'mode-class 'special)
 
 (random t)

diff --git a/lisp/register.el b/lisp/register.el
index 24487dac7b1ec55ce1bdcf5221cb52df7cb6f1f8..32463453702b2f1b1ea2278892e7126d773fdb54 100644 (file)
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -71,7 +71,7 @@ Argument is a character, naming the register."
   (interactive "cPoint to register: \nP")
   (set-register char (current-frame-configuration)))
 
-(fset 'register-to-point 'jump-to-register)
+(defalias 'register-to-point 'jump-to-register)
 (defun jump-to-register (char)
   "Move point to location stored in a register.
 If the register contains a window configuration (one frame) or a frame

diff --git a/lisp/replace.el b/lisp/replace.el
index 634c42691e8dcbaa28872f0ba7e55fa72bb5ffc9..a3e2f03a5faf536461ba122d62839cb24af6637c 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -146,7 +146,7 @@ which will run faster and will not set the mark or print anything."
 (defvar regexp-history nil
   "History list for some commands that read regular expressions.")
 
-(fset 'delete-non-matching-lines 'keep-lines)
+(defalias 'delete-non-matching-lines 'keep-lines)
 (defun keep-lines (regexp)
   "Delete all lines except those containing matches for REGEXP.
 A match split across lines preserves all the lines it lies in.
@@ -173,7 +173,7 @@ Applies to all lines after point."
        (and (not (eobp)) (= (match-beginning 0) (match-end 0))
             (forward-char 1))))))
 
-(fset 'delete-matching-lines 'flush-lines)
+(defalias 'delete-matching-lines 'flush-lines)
 (defun flush-lines (regexp)
   "Delete lines containing matches for REGEXP.
 If a match is split across lines, all the lines it lies in are deleted.
@@ -189,7 +189,7 @@ Applies to lines after point."
                                     (point))
                     (progn (forward-line 1) (point))))))
 
-(fset 'count-matches 'how-many)
+(defalias 'count-matches 'how-many)
 (defun how-many (regexp)
   "Print number of matches for REGEXP following point."
   (interactive (list (read-from-minibuffer
@@ -258,7 +258,7 @@ in the buffer that the occurrences were found in.
 match.  A negative number means to include that many lines before the match.
 A positive number means to include that many lines both before and after.")
 
-(fset 'list-matching-lines 'occur)
+(defalias 'list-matching-lines 'occur)
 
 (defun occur (regexp &optional nlines)
   "Show all lines in the current buffer containing a match for REGEXP.

diff --git a/lisp/select.el b/lisp/select.el
index bfcf20aa652d8f404007618715d9fd4263d57411..f82dc3127d43d1a8dca3d2afb45606a9691130dc 100644 (file)
--- a/lisp/select.el
+++ b/lisp/select.el
@@ -24,7 +24,7 @@
 ;;; Code:
 
 ;; This is for temporary compatibility with pre-release Emacs 19.
-(fset 'x-selection 'x-get-selection)
+(defalias 'x-selection 'x-get-selection)
 (defun x-get-selection (&optional type data-type)
   "Return the value of an X Windows selection.
 The argument TYPE (default `PRIMARY') says which selection, 

diff --git a/lisp/shell.el b/lisp/shell.el
index 0c405026e65e92fd69902a76daf29f61c89ce431..50562b21fa2279a962435d1bd844386ddd586556 100644 (file)
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -454,7 +454,7 @@ Environment variables are expanded, see function substitute-in-file-name."
           (if shell-dirtrackp "ON" "OFF")))
 
 ;;; For your typing convenience:
-(fset 'dirtrack-toggle 'shell-dirtrack-toggle)
+(defalias 'dirtrack-toggle 'shell-dirtrack-toggle)
 
 
 (defun shell-resync-dirs ()
@@ -502,7 +502,7 @@ command again."
          (error (message "Couldn't cd.")))))))
 
 ;;; For your typing convenience:
-(fset 'dirs 'shell-resync-dirs)
+(defalias 'dirs 'shell-resync-dirs)
 
 
 ;;; Show the current dirstack on the message line.

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index f653188e3fb2ed1dab722f1771cd3fce9f941751..a4084b02408942bb08f113e37b1b31139d711f21 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -1119,8 +1119,8 @@ itself."
 
 
 (if (not (fboundp 'tar-real-normal-mode))
-    (fset 'tar-real-normal-mode (symbol-function 'normal-mode)))
-(fset 'normal-mode 'tar-normal-mode)
+    (defalias 'tar-real-normal-mode (symbol-function 'normal-mode)))
+(defalias 'normal-mode 'tar-normal-mode)
 
 (provide 'tar-mode)
 

diff --git a/lisp/textmodes/ispell4.el b/lisp/textmodes/ispell4.el
index 4520ebcff0d6c322648111be99a44afa615c42c3..0ad99c1e92ac9e082a34118ddcd7d28d0d47a32c 100644 (file)
--- a/lisp/textmodes/ispell4.el
+++ b/lisp/textmodes/ispell4.el
@@ -268,7 +268,7 @@ q, \\[keyboard-quit]        Leave the command loop.  You can come back later with \\[is
         (ispell-next))))
 
 ;;;###autoload
-(fset 'ispell-buffer 'ispell)
+(defalias 'ispell-buffer 'ispell)
 
 (defun ispell-next ()
   "Resume command loop for most recent ispell command."

diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el
index a0864a79c0fc4bbab3f6318087e7aad931e897ce..f1808c2ec7cd75a945299549bbe2811e9c003f07 100644 (file)
--- a/lisp/textmodes/picture.el
+++ b/lisp/textmodes/picture.el
@@ -548,7 +548,7 @@ they are not defaultly assigned to keys."
      picture-mode-old-mode-name)))
 
 ;;;###autoload
-(fset 'picture-mode 'edit-picture)
+(defalias 'picture-mode 'edit-picture)
 
 (defun picture-mode-exit (&optional nostrip)
   "Undo edit-picture and return to previous major mode.

diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index 7835bfd120a6783082dd79d243b8fbaa590b24a3..2f8207070eaa345b75b382b1361d950aa50e0910 100644 (file)
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -214,7 +214,7 @@ Set by \\[tex-region], \\[tex-buffer], and \\[tex-file].")
 (defvar tex-shell-map nil
   "Keymap for the tex-shell.  A comint-mode-map with a few additions.")
 
-;(fset 'TeX-mode 'tex-mode)            ;in loaddefs.
+;(defalias 'TeX-mode 'tex-mode)                ;in loaddefs.
 
 ;;; This would be a lot simpler if we just used a regexp search,
 ;;; but then it would be too slow.
@@ -244,9 +244,9 @@ is used."
     (if mode (funcall mode)
       (funcall tex-default-mode))))
 ;;;###autoload
-(fset 'TeX-mode 'tex-mode)
+(defalias 'TeX-mode 'tex-mode)
 ;;;###autoload
-(fset 'LaTeX-mode 'latex-mode)
+(defalias 'LaTeX-mode 'latex-mode)
 
 ;;;###autoload
 (defun plain-tex-mode ()
@@ -299,7 +299,7 @@ subshell is initiated, the value of tex-shell-hook is called."
   (setq tex-trailer "\\bye\n")
   (run-hooks 'text-mode-hook 'tex-mode-hook 'plain-tex-mode-hook))
 ;;;###autoload
-(fset 'plain-TeX-mode 'plain-tex-mode)
+(defalias 'plain-TeX-mode 'plain-tex-mode)
 
 ;;;###autoload
 (defun latex-mode ()

diff --git a/lisp/textmodes/two-column.el b/lisp/textmodes/two-column.el
index 76fc38b6d029e920ef874b55e670ffcb9637d1c8..dd22631957dbd0470a838d48d2d6e74644be0477 100644 (file)
--- a/lisp/textmodes/two-column.el
+++ b/lisp/textmodes/two-column.el
@@ -377,7 +377,7 @@ The appearance of the screen can be customized by the variables
       (other-window -1)
       (setq tc-other other))))
 
-(fset 'tc-mode 'tc-two-columns)
+(defalias 'tc-mode 'tc-two-columns)
 
 ;;;###autoload
 (defun tc-associate-buffer ()